home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
prog_pas
/
xport11.zip
/
FILELOCK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-03-09
|
1KB
|
79 lines
{$O+,F+}
unit filelock;
interface
procedure delete_file(fn: string);
procedure unlock_file(file_name:string);
procedure get_access_hard(file_name:string;check:boolean);
implementation
uses dos,crt;
function fileexists(FNAME:string):boolean;
var tfile:text;
s: string;
begin
s := FSEARCH(FNAME,'');
fileexists := s <> '';
end;
procedure delete_file(fn: string);
var
f: file;
begin;
{$I-}
if fileexists(fn) then begin;
assign(f,fn);
erase(f);
{$I+}
end;
end;
procedure unlock_file(file_name:string);
var
ar: text;
i: integer;
begin;
file_name[length(file_name)] := 'X';
delete_file(file_name);
end;
procedure get_access_hard(file_name:string;check:boolean);
var
ar: text;
i: integer;
begin;
IF NOT FILEEXISTS(file_name) and check then begin
writeln(file_name,' does not exist!');
assign(ar,'error.log');
rewrite(ar);
writeln(file_name,' Did Not Exist!');
close(ar);
halt(0);
end;
{$I-}
file_name[length(file_name)] := 'X';
if fileexists(file_name) then begin;
i := 1;
repeat;
delay(100);
inc(i);
if i = 10 then delete_file(file_name);
until (not fileexists(file_name));
end;
assign(ar, file_name);
rewrite(ar);
close(ar);
{$I+}
end;
end.